library(ggplot2)
library(forecast)
library(plotly)
theme_set(theme_classic())

# Subset data
nottem_small <- window(nottem, start=c(1920, 1), end=c(1925, 12))  # subset a smaller timewindow

# Plot
gg <- ggseasonplot(AirPassengers) + labs(title="Seasonal plot: International Airline Passengers")

ggplotly(gg)